/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / gnus / pop3.elc.z / pop3.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 33 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:32 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 70 6f 70 33 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |/pop3.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |  Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|.    (er|
|000001e0| 72 6f 72 20 22 60 70 6f | 70 33 2e 65 6c 27 20 77 |ror "`po|p3.el' w|
|000001f0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|00000200| 45 6d 61 63 73 20 32 30 | 22 29 29 0a 0a 28 6f 72 |Emacs 20|"))..(or|
|00000210| 20 28 62 6f 75 6e 64 70 | 20 27 63 75 72 72 65 6e | (boundp| 'curren|
|00000220| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 29 20 28 73 65 |t-load-l|ist) (se|
|00000230| 74 71 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |tq curre|nt-load-|
|00000240| 6c 69 73 74 20 6e 69 6c | 29 29 0a 0a 0a 28 62 79 |list nil|))...(by|
|00000250| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|00000260| 88 c4 15 c5 0e 06 42 16 | 06 c0 87 22 20 5b 72 65 |......B.|..." [re|
|00000270| 71 75 69 72 65 20 6d 61 | 69 6c 2d 75 74 69 6c 73 |quire ma|il-utils|
|00000280| 20 70 72 6f 76 69 64 65 | 20 70 6f 70 33 20 22 31 | provide| pop3 "1|
|00000290| 2e 33 67 22 20 70 6f 70 | 33 2d 76 65 72 73 69 6f |.3g" pop|3-versio|
|000002a0| 6e 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |n curren|t-load-l|
|000002b0| 69 73 74 5d 20 32 29 0a | 23 40 31 37 20 2a 50 4f |ist] 2).|#@17 *PO|
|000002c0| 50 33 20 6d 61 69 6c 64 | 72 6f 70 2e 1f 0a 28 64 |P3 maild|rop...(d|
|000002d0| 65 66 76 61 72 20 70 6f | 70 33 2d 6d 61 69 6c 64 |efvar po|p3-maild|
|000002e0| 72 6f 70 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |rop (byt|e-code "|
|000002f0| 08 ae 88 c1 c2 21 ae 83 | c1 c3 21 87 22 20 5b 75 |.....!..|..!." [u|
|00000300| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 67 |ser-logi|n-name g|
|00000310| 65 74 65 6e 76 20 22 4c | 4f 47 4e 41 4d 45 22 20 |etenv "L|OGNAME" |
|00000320| 22 55 53 45 52 22 5d 20 | 32 29 20 28 23 24 20 2e |"USER"] |2) (#$ .|
|00000330| 20 2d 37 30 31 29 29 0a | 23 40 31 37 20 2a 50 4f | -701)).|#@17 *PO|
|00000340| 50 33 20 6d 61 69 6c 68 | 6f 73 74 2e 1f 0a 28 64 |P3 mailh|ost...(d|
|00000350| 65 66 76 61 72 20 70 6f | 70 33 2d 6d 61 69 6c 68 |efvar po|p3-mailh|
|00000360| 6f 73 74 20 28 67 65 74 | 65 6e 76 20 22 4d 41 49 |ost (get|env "MAI|
|00000370| 4c 48 4f 53 54 22 29 20 | 28 23 24 20 2e 20 2d 38 |LHOST") |(#$ . -8|
|00000380| 32 39 29 29 0a 23 40 31 | 33 20 2a 50 4f 50 33 20 |29)).#@1|3 *POP3 |
|00000390| 70 6f 72 74 2e 1f 0a 28 | 64 65 66 76 61 72 20 70 |port...(|defvar p|
|000003a0| 6f 70 33 2d 70 6f 72 74 | 20 31 31 30 20 28 23 24 |op3-port| 110 (#$|
|000003b0| 20 2e 20 2d 39 30 36 29 | 29 0a 23 40 36 37 20 2a | . -906)|).#@67 *|
|000003c0| 4e 6f 6e 2d 6e 69 6c 20 | 69 66 20 61 20 70 61 73 |Non-nil |if a pas|
|000003d0| 73 77 6f 72 64 20 69 73 | 20 72 65 71 75 69 72 65 |sword is| require|
|000003e0| 64 20 77 68 65 6e 20 63 | 6f 6e 6e 65 63 74 69 6e |d when c|onnectin|
|000003f0| 67 20 74 6f 20 50 4f 50 | 20 73 65 72 76 65 72 2e |g to POP| server.|
|00000400| 1f 0a 28 64 65 66 76 61 | 72 20 70 6f 70 33 2d 70 |..(defva|r pop3-p|
|00000410| 61 73 73 77 6f 72 64 2d | 72 65 71 75 69 72 65 64 |assword-|required|
|00000420| 20 74 20 28 23 24 20 2e | 20 2d 39 35 39 29 29 0a | t (#$ .| -959)).|
|00000430| 23 40 34 39 20 2a 50 61 | 73 73 77 6f 72 64 20 74 |#@49 *Pa|ssword t|
|00000440| 6f 20 75 73 65 20 77 68 | 65 6e 20 63 6f 6e 6e 65 |o use wh|en conne|
|00000450| 63 74 69 6e 67 20 74 6f | 20 50 4f 50 20 73 65 72 |cting to| POP ser|
|00000460| 76 65 72 2e 1f 0a 28 64 | 65 66 76 61 72 20 70 6f |ver...(d|efvar po|
|00000470| 70 33 2d 70 61 73 73 77 | 6f 72 64 20 6e 69 6c 20 |p3-passw|ord nil |
|00000480| 28 23 24 20 2e 20 2d 31 | 30 37 37 29 29 0a 23 40 |(#$ . -1|077)).#@|
|00000490| 31 32 33 20 2a 50 4f 50 | 33 20 61 75 74 68 65 6e |123 *POP|3 authen|
|000004a0| 74 69 63 61 74 69 6f 6e | 20 73 63 68 65 6d 65 2e |tication| scheme.|
|000004b0| 0a 44 65 66 61 75 6c 74 | 73 20 74 6f 20 27 70 61 |.Default|s to 'pa|
|000004c0| 73 73 2c 20 66 6f 72 20 | 74 68 65 20 73 74 61 6e |ss, for |the stan|
|000004d0| 64 61 72 64 20 55 53 45 | 52 2f 50 41 53 53 20 61 |dard USE|R/PASS a|
|000004e0| 75 74 68 65 6e 74 69 63 | 61 74 69 6f 6e 2e 20 20 |uthentic|ation.  |
|000004f0| 4f 74 68 65 72 20 76 61 | 6c 69 64 0a 76 61 6c 75 |Other va|lid.valu|
|00000500| 65 73 20 61 72 65 20 27 | 61 70 6f 70 2e 1f 0a 28 |es are '|apop...(|
|00000510| 64 65 66 76 61 72 20 70 | 6f 70 33 2d 61 75 74 68 |defvar p|op3-auth|
|00000520| 65 6e 74 69 63 61 74 69 | 6f 6e 2d 73 63 68 65 6d |enticati|on-schem|
|00000530| 65 20 27 70 61 73 73 20 | 28 23 24 20 2e 20 2d 31 |e 'pass |(#$ . -1|
|00000540| 31 37 32 29 29 0a 23 40 | 39 34 20 54 69 6d 65 73 |172)).#@|94 Times|
|00000550| 74 61 6d 70 20 72 65 74 | 75 72 6e 65 64 20 77 68 |tamp ret|urned wh|
|00000560| 65 6e 20 69 6e 69 74 69 | 61 6c 6c 79 20 63 6f 6e |en initi|ally con|
|00000570| 6e 65 63 74 65 64 20 74 | 6f 20 74 68 65 20 50 4f |nected t|o the PO|
|00000580| 50 20 73 65 72 76 65 72 | 2e 0a 55 73 65 64 20 66 |P server|..Used f|
|00000590| 6f 72 20 41 50 4f 50 20 | 61 75 74 68 65 6e 74 69 |or APOP |authenti|
|000005a0| 63 61 74 69 6f 6e 2e 1f | 0a 28 64 65 66 76 61 72 |cation..|.(defvar|
|000005b0| 20 70 6f 70 33 2d 74 69 | 6d 65 73 74 61 6d 70 20 | pop3-ti|mestamp |
|000005c0| 6e 69 6c 20 28 23 24 20 | 2e 20 31 33 35 35 29 29 |nil (#$ |. 1355))|
|000005d0| 0a 23 40 35 37 20 43 72 | 61 73 68 62 6f 78 20 6d |.#@57 Cr|ashbox m|
|000005e0| 61 64 65 20 62 79 20 70 | 6f 70 33 2d 6d 6f 76 65 |ade by p|op3-move|
|000005f0| 6d 61 69 6c 20 77 69 74 | 68 20 74 68 69 73 20 63 |mail wit|h this c|
|00000600| 6f 64 69 6e 67 20 73 79 | 73 74 65 6d 2e 1f 0a 28 |oding sy|stem...(|
|00000610| 64 65 66 76 61 72 20 70 | 6f 70 33 2d 6d 6f 76 65 |defvar p|op3-move|
|00000620| 6d 61 69 6c 2d 66 69 6c | 65 2d 63 6f 64 69 6e 67 |mail-fil|e-coding|
|00000630| 2d 73 79 73 74 65 6d 20 | 6e 69 6c 20 28 23 24 20 |-system |nil (#$ |
|00000640| 2e 20 31 34 39 34 29 29 | 0a 28 62 79 74 65 2d 63 |. 1494))|.(byte-c|
|00000650| 6f 64 65 20 22 c0 c1 21 | ac 82 c2 11 c1 0b 42 13 |ode "..!|......B.|
|00000660| c0 c4 21 ac 82 c2 14 c4 | 0b 42 13 c2 87 22 20 5b |..!.....|.B..." [|
|00000670| 62 6f 75 6e 64 70 20 70 | 6f 70 33 2d 72 65 61 64 |boundp p|op3-read|
|00000680| 2d 70 6f 69 6e 74 20 6e | 69 6c 20 63 75 72 72 65 |-point n|il curre|
|00000690| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 70 6f 70 |nt-load-|list pop|
|000006a0| 33 2d 64 65 62 75 67 5d | 20 32 29 0a 23 40 36 30 |3-debug]| 2).#@60|
|000006b0| 20 54 72 61 6e 73 66 65 | 72 20 63 6f 6e 74 65 6e | Transfe|r conten|
|000006c0| 74 73 20 6f 66 20 61 20 | 6d 61 69 6c 64 72 6f 70 |ts of a |maildrop|
|000006d0| 20 74 6f 20 74 68 65 20 | 73 70 65 63 69 66 69 65 | to the |specifie|
|000006e0| 64 20 43 52 41 53 48 42 | 4f 58 2e 1f 0a 28 64 65 |d CRASHB|OX...(de|
|000006f0| 66 61 6c 69 61 73 20 27 | 70 6f 70 33 2d 6d 6f 76 |falias '|pop3-mov|
|00000700| 65 6d 61 69 6c 20 23 5b | 28 26 6f 70 74 69 6f 6e |email #[|(&option|
|00000710| 61 6c 20 63 72 61 73 68 | 62 6f 78 29 20 22 08 ac |al crash|box) "..|
|00000720| 84 c1 c2 21 10 c3 0c 0d | 5c 22 1e 06 c7 c8 21 1e |...!....|\"....!.|
|00000730| 09 ca 1e 0b cc 1e 0d 0e | 0e ab 87 cf d0 0e 06 21 |........|.......!|
|00000740| 21 88 0e 11 d2 6b ab 89 | d3 0e 06 0e 14 5c 22 88 |!....k..|.....\".|
|00000750| aa 98 0e 11 d5 6b ab 8e | d6 0e 06 0e 14 5c 22 88 |.....k..|.....\".|
|00000760| d7 0e 06 21 88 aa 84 d8 | d9 21 88 da 0e 06 21 40 |...!....|.!....!@|
|00000770| 16 0d 0e 0b 0e 0d 58 ab | d9 db dc dd 0e 0b 0e 0d |......X.|........|
|00000780| 0c 24 21 88 de 0e 06 0e | 0b 0e 09 23 88 8a 0e 09 |.$!.....|...#....|
|00000790| 71 88 0e 1f 1e 20 e1 65 | 64 08 23 88 29 d0 0e 06 |q.... .e|d.#.)...|
|000007a0| 21 71 88 e2 20 e3 56 ab | 8c 65 62 88 e4 79 88 65 |!q.. .V.|.eb..y.e|
|000007b0| 60 7c 88 aa 6e 29 e5 0e | 06 0e 0b 5c 22 88 0e 0b |`|..n)..|...\"...|
|000007c0| 54 16 0b 0e 0e ab 86 e6 | ca 21 88 aa 26 e6 e7 21 |T.......|.!..&..!|
|000007d0| 88 aa 20 e8 0e 06 21 88 | e9 0e 09 21 2c 87 22 20 |.. ...!.|...!,." |
|000007e0| 5b 63 72 61 73 68 62 6f | 78 20 65 78 70 61 6e 64 |[crashbo|x expand|
|000007f0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 7e 2f 2e 63 |-file-na|me "~/.c|
|00000800| 72 61 73 68 62 6f 78 22 | 20 70 6f 70 33 2d 6f 70 |rashbox"| pop3-op|
|00000810| 65 6e 2d 73 65 72 76 65 | 72 20 70 6f 70 33 2d 6d |en-serve|r pop3-m|
|00000820| 61 69 6c 68 6f 73 74 20 | 70 6f 70 33 2d 70 6f 72 |ailhost |pop3-por|
|00000830| 74 20 70 72 6f 63 65 73 | 73 20 67 65 74 2d 62 75 |t proces|s get-bu|
|00000840| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 20 2a 70 |ffer-cre|ate " *p|
|00000850| 6f 70 33 2d 72 65 74 72 | 2a 22 20 63 72 61 73 68 |op3-retr|*" crash|
|00000860| 62 75 66 20 31 20 6e 20 | 6e 69 6c 20 6d 65 73 73 |buf 1 n |nil mess|
|00000870| 61 67 65 2d 63 6f 75 6e | 74 20 70 6f 70 33 2d 64 |age-coun|t pop3-d|
|00000880| 65 62 75 67 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |ebug swi|tch-to-b|
|00000890| 75 66 66 65 72 20 70 72 | 6f 63 65 73 73 2d 62 75 |uffer pr|ocess-bu|
|000008a0| 66 66 65 72 20 70 6f 70 | 33 2d 61 75 74 68 65 6e |ffer pop|3-authen|
|000008b0| 74 69 63 61 74 69 6f 6e | 2d 73 63 68 65 6d 65 20 |tication|-scheme |
|000008c0| 61 70 6f 70 20 70 6f 70 | 33 2d 61 70 6f 70 20 70 |apop pop|3-apop p|
|000008d0| 6f 70 33 2d 6d 61 69 6c | 64 72 6f 70 20 70 61 73 |op3-mail|drop pas|
|000008e0| 73 20 70 6f 70 33 2d 75 | 73 65 72 20 70 6f 70 33 |s pop3-u|ser pop3|
|000008f0| 2d 70 61 73 73 20 65 72 | 72 6f 72 20 22 49 6e 76 |-pass er|ror "Inv|
|00000900| 61 6c 69 64 20 50 4f 50 | 33 20 61 75 74 68 65 6e |alid POP|3 authen|
|00000910| 74 69 63 61 74 69 6f 6e | 20 73 63 68 65 6d 65 2e |tication| scheme.|
|00000920| 22 20 70 6f 70 33 2d 73 | 74 61 74 20 6d 65 73 73 |" pop3-s|tat mess|
|00000930| 61 67 65 20 66 6f 72 6d | 61 74 20 22 52 65 74 72 |age form|at "Retr|
|00000940| 69 65 76 69 6e 67 20 6d | 65 73 73 61 67 65 20 25 |ieving m|essage %|
|00000950| 64 20 6f 66 20 25 64 20 | 66 72 6f 6d 20 25 73 2e |d of %d |from %s.|
|00000960| 2e 2e 22 20 70 6f 70 33 | 2d 72 65 74 72 20 70 6f |.." pop3|-retr po|
|00000970| 70 33 2d 6d 6f 76 65 6d | 61 69 6c 2d 66 69 6c 65 |p3-movem|ail-file|
|00000980| 2d 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 20 63 |-coding-|system c|
|00000990| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 2d 66 6f 72 |oding-sy|stem-for|
|000009a0| 2d 77 72 69 74 65 20 61 | 70 70 65 6e 64 2d 74 6f |-write a|ppend-to|
|000009b0| 2d 66 69 6c 65 20 62 75 | 66 66 65 72 2d 73 69 7a |-file bu|ffer-siz|
|000009c0| 65 20 35 30 30 30 20 35 | 30 20 70 6f 70 33 2d 64 |e 5000 5|0 pop3-d|
|000009d0| 65 6c 65 20 73 69 74 2d | 66 6f 72 20 30 2e 31 20 |ele sit-|for 0.1 |
|000009e0| 70 6f 70 33 2d 71 75 69 | 74 20 6b 69 6c 6c 2d 62 |pop3-qui|t kill-b|
|000009f0| 75 66 66 65 72 5d 20 36 | 20 28 23 24 20 2e 20 31 |uffer] 6| (#$ . 1|
|00000a00| 37 31 33 29 5d 29 0a 23 | 40 38 36 20 4f 70 65 6e |713)]).#|@86 Open|
|00000a10| 20 54 43 50 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 | TCP con|nection |
|00000a20| 74 6f 20 4d 41 49 4c 48 | 4f 53 54 2e 0a 52 65 74 |to MAILH|OST..Ret|
|00000a30| 75 72 6e 73 20 74 68 65 | 20 70 72 6f 63 65 73 73 |urns the| process|
|00000a40| 20 61 73 73 6f 63 69 61 | 74 65 64 20 77 69 74 68 | associa|ted with|
|00000a50| 20 74 68 65 20 63 6f 6e | 6e 65 63 74 69 6f 6e 2e | the con|nection.|
|00000a60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 6f 70 |..(defal|ias 'pop|
|00000a70| 33 2d 6f 70 65 6e 2d 73 | 65 72 76 65 72 20 23 5b |3-open-s|erver #[|
|00000a80| 28 6d 61 69 6c 68 6f 73 | 74 20 70 6f 72 74 29 20 |(mailhos|t port) |
|00000a90| 22 c0 c1 c2 0b 5c 22 21 | c4 1d 1e 06 8a 0e 06 71 |"....\"!|.......q|
|00000aa0| 88 c7 20 88 29 c8 c9 0e | 06 0b 0e 5c 6e 24 15 65 |.. .)...|...\n$.e|
|00000ab0| 16 0b cc 0d cd 5c 22 89 | 1e 0e cf d0 0e 0e 5c 22 |.....\".|......\"|
|00000ac0| ae 81 d1 cf d2 0e 0e 5c | 22 ae 81 d3 54 4f 16 14 |.......\|"...TO..|
|00000ad0| 29 0d 2a 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |).*." [g|et-buffe|
|00000ae0| 72 2d 63 72 65 61 74 65 | 20 66 6f 72 6d 61 74 20 |r-create| format |
|00000af0| 22 74 72 61 63 65 20 6f | 66 20 50 4f 50 20 73 65 |"trace o|f POP se|
|00000b00| 73 73 69 6f 6e 20 74 6f | 20 25 73 22 20 6d 61 69 |ssion to| %s" mai|
|00000b10| 6c 68 6f 73 74 20 6e 69 | 6c 20 70 72 6f 63 65 73 |lhost ni|l proces|
|00000b20| 73 20 70 72 6f 63 65 73 | 73 2d 62 75 66 66 65 72 |s proces|s-buffer|
|00000b30| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 6f 70 | erase-b|uffer op|
|00000b40| 65 6e 2d 6e 65 74 77 6f | 72 6b 2d 73 74 72 65 61 |en-netwo|rk-strea|
|00000b50| 6d 20 22 50 4f 50 22 20 | 70 6f 72 74 20 70 6f 70 |m "POP" |port pop|
|00000b60| 33 2d 72 65 61 64 2d 70 | 6f 69 6e 74 20 70 6f 70 |3-read-p|oint pop|
|00000b70| 33 2d 72 65 61 64 2d 72 | 65 73 70 6f 6e 73 65 20 |3-read-r|esponse |
|00000b80| 74 20 72 65 73 70 6f 6e | 73 65 20 73 74 72 69 6e |t respon|se strin|
|00000b90| 67 2d 6d 61 74 63 68 20 | 22 3c 22 20 30 20 22 3e |g-match |"<" 0 ">|
|00000ba0| 22 20 2d 31 20 70 6f 70 | 33 2d 74 69 6d 65 73 74 |" -1 pop|3-timest|
|00000bb0| 61 6d 70 5d 20 36 20 28 | 23 24 20 2e 20 32 35 37 |amp] 6 (|#$ . 257|
|00000bc0| 32 29 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |2)]).(de|falias '|
|00000bd0| 70 6f 70 33 2d 70 72 6f | 63 65 73 73 2d 66 69 6c |pop3-pro|cess-fil|
|00000be0| 74 65 72 20 23 5b 28 70 | 72 6f 63 65 73 73 20 6f |ter #[(p|rocess o|
|00000bf0| 75 74 70 75 74 29 20 22 | 8a c0 09 21 71 88 64 62 |utput) "|...!q.db|
|00000c00| 88 5c 6e 63 29 87 22 20 | 5b 70 72 6f 63 65 73 73 |.\nc)." |[process|
|00000c10| 2d 62 75 66 66 65 72 20 | 70 72 6f 63 65 73 73 20 |-buffer |process |
|00000c20| 6f 75 74 70 75 74 5d 20 | 32 5d 29 0a 28 64 65 66 |output] |2]).(def|
|00000c30| 61 6c 69 61 73 20 27 70 | 6f 70 33 2d 73 65 6e 64 |alias 'p|op3-send|
|00000c40| 2d 63 6f 6d 6d 61 6e 64 | 20 23 5b 28 70 72 6f 63 |-command| #[(proc|
|00000c50| 65 73 73 20 63 6f 6d 6d | 61 6e 64 29 20 22 c0 09 |ess comm|and) "..|
|00000c60| 21 71 88 64 62 88 60 12 | 64 62 88 c3 09 0c 5c 22 |!q.db.`.|db....\"|
|00000c70| 88 c3 09 c5 5c 22 87 22 | 20 5b 70 72 6f 63 65 73 |....\"."| [proces|
|00000c80| 73 2d 62 75 66 66 65 72 | 20 70 72 6f 63 65 73 73 |s-buffer| process|
|00000c90| 20 70 6f 70 33 2d 72 65 | 61 64 2d 70 6f 69 6e 74 | pop3-re|ad-point|
|00000ca0| 20 70 72 6f 63 65 73 73 | 2d 73 65 6e 64 2d 73 74 | process|-send-st|
|00000cb0| 72 69 6e 67 20 63 6f 6d | 6d 61 6e 64 20 22 0d 5c |ring com|mand ".\|
|00000cc0| 6e 22 5d 20 33 5d 29 0a | 23 40 31 30 33 20 52 65 |n"] 3]).|#@103 Re|
|00000cd0| 61 64 20 74 68 65 20 72 | 65 73 70 6f 6e 73 65 20 |ad the r|esponse |
|00000ce0| 66 72 6f 6d 20 74 68 65 | 20 73 65 72 76 65 72 2e |from the| server.|
|00000cf0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 72 65 73 70 |.Return |the resp|
|00000d00| 6f 6e 73 65 20 73 74 72 | 69 6e 67 20 69 66 20 6f |onse str|ing if o|
|00000d10| 70 74 69 6f 6e 61 6c 20 | 73 65 63 6f 6e 64 20 61 |ptional |second a|
|00000d20| 72 67 75 6d 65 6e 74 20 | 69 73 20 6e 6f 6e 2d 6e |rgument |is non-n|
|00000d30| 69 6c 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il...(de|falias '|
|00000d40| 70 6f 70 33 2d 72 65 61 | 64 2d 72 65 73 70 6f 6e |pop3-rea|d-respon|
|00000d50| 73 65 20 23 5b 28 70 72 | 6f 63 65 73 73 20 26 6f |se #[(pr|ocess &o|
|00000d60| 70 74 69 6f 6e 61 6c 20 | 72 65 74 75 72 6e 29 20 |ptional |return) |
|00000d70| 22 c0 89 19 1a 8a c3 0c | 21 71 88 0d 62 88 c6 c7 |".......|!q..b...|
|00000d80| c0 c8 23 ac 8a c9 0c ca | 5c 22 88 0d 62 88 aa 6f |..#.....|\"..b..o|
|00000d90| 60 11 0d 62 88 cb cc 21 | ab 89 cd 60 09 ce 5a 7b |`..b...!|...`..Z{|
|00000da0| 21 aa 96 cb cf 21 ac 85 | 09 15 c0 aa 8c 09 15 0e |!....!..|........|
|00000db0| 10 ab 85 60 09 7b aa 81 | c8 2b 87 22 20 5b 6e 69 |...`.{..|.+." [ni|
|00000dc0| 6c 20 6d 61 74 63 68 2d | 65 6e 64 20 63 61 73 65 |l match-|end case|
|00000dd0| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 70 72 6f |-fold-se|arch pro|
|00000de0| 63 65 73 73 2d 62 75 66 | 66 65 72 20 70 72 6f 63 |cess-buf|fer proc|
|00000df0| 65 73 73 20 70 6f 70 33 | 2d 72 65 61 64 2d 70 6f |ess pop3|-read-po|
|00000e00| 69 6e 74 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |int sear|ch-forwa|
|00000e10| 72 64 20 22 0d 5c 6e 22 | 20 74 20 61 63 63 65 70 |rd ".\n"| t accep|
|00000e20| 74 2d 70 72 6f 63 65 73 | 73 2d 6f 75 74 70 75 74 |t-proces|s-output|
|00000e30| 20 33 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 2d | 3 looki|ng-at "-|
|00000e40| 45 52 52 22 20 65 72 72 | 6f 72 20 32 20 22 2b 4f |ERR" err|or 2 "+O|
|00000e50| 4b 22 20 72 65 74 75 72 | 6e 5d 20 34 20 28 23 24 |K" retur|n] 4 (#$|
|00000e60| 20 2e 20 33 32 37 38 29 | 5d 29 0a 23 40 33 31 20 | . 3278)|]).#@31 |
|00000e70| 43 68 6f 70 20 75 70 20 | 61 20 73 74 72 69 6e 67 |Chop up |a string|
|00000e80| 20 69 6e 74 6f 20 61 20 | 6c 69 73 74 2e 1f 0a 28 | into a |list...(|
|00000e90| 64 65 66 61 6c 69 61 73 | 20 27 70 6f 70 33 2d 73 |defalias| 'pop3-s|
|00000ea0| 74 72 69 6e 67 2d 74 6f | 2d 6c 69 73 74 20 23 5b |tring-to|-list #[|
|00000eb0| 28 73 74 72 69 6e 67 20 | 26 6f 70 74 69 6f 6e 61 |(string |&optiona|
|00000ec0| 6c 20 72 65 67 65 78 70 | 29 20 22 c0 09 ae 81 c2 |l regexp|) ".....|
|00000ed0| c3 c4 0d 5c 22 ab 87 0d | c6 89 94 4f aa 81 0d 1d |...\"...|...O....|
|00000ee0| 19 1e 07 c8 c0 21 88 0d | ab a5 c3 09 0d 5c 22 ab |.....!..|.....\".|
|00000ef0| 94 0d c6 89 95 53 4f 0e | 07 42 16 07 0d c6 95 c0 |.....SO.|.B......|
|00000f00| 4f 89 15 aa 64 0d 0e 07 | 42 16 07 c0 89 15 ac 5b |O...d...|B......[|
|00000f10| 0e 07 9f 2b 87 22 20 5b | 6e 69 6c 20 72 65 67 65 |...+." [|nil rege|
|00000f20| 78 70 20 22 20 22 20 73 | 74 72 69 6e 67 2d 6d 61 |xp " " s|tring-ma|
|00000f30| 74 63 68 20 22 0d 22 20 | 73 74 72 69 6e 67 20 30 |tch "." |string 0|
|00000f40| 20 6c 69 73 74 20 73 74 | 6f 72 65 2d 6d 61 74 63 | list st|ore-matc|
|00000f50| 68 2d 64 61 74 61 5d 20 | 36 20 28 23 24 20 2e 20 |h-data] |6 (#$ . |
|00000f60| 33 36 39 36 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |3696)]).|(byte-co|
|00000f70| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c2 |de "..!.|.....B..|
|00000f80| 87 22 20 5b 62 6f 75 6e | 64 70 20 70 6f 70 33 2d |." [boun|dp pop3-|
|00000f90| 72 65 61 64 2d 70 61 73 | 73 77 64 20 6e 69 6c 20 |read-pas|swd nil |
|00000fa0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000fb0| 74 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t] 2).(d|efalias |
|00000fc0| 27 70 6f 70 33 2d 72 65 | 61 64 2d 70 61 73 73 77 |'pop3-re|ad-passw|
|00000fd0| 64 20 23 5b 28 70 72 6f | 6d 70 74 29 20 22 08 ac |d #[(pro|mpt) "..|
|00000fe0| 91 c1 c2 c3 5c 22 ab 84 | c4 10 aa 87 c5 c6 c7 5c |....\"..|.......\|
|00000ff0| 22 88 c6 10 08 0e 08 21 | 87 22 20 5b 70 6f 70 33 |"......!|." [pop3|
|00001000| 2d 72 65 61 64 2d 70 61 | 73 73 77 64 20 6c 6f 61 |-read-pa|sswd loa|
|00001010| 64 20 22 70 61 73 73 77 | 64 22 20 74 20 72 65 61 |d "passw|d" t rea|
|00001020| 64 2d 70 61 73 73 77 64 | 20 61 75 74 6f 6c 6f 61 |d-passwd| autoloa|
|00001030| 64 20 61 6e 67 65 2d 66 | 74 70 2d 72 65 61 64 2d |d ange-f|tp-read-|
|00001040| 70 61 73 73 77 64 20 22 | 61 6e 67 65 2d 66 74 70 |passwd "|ange-ftp|
|00001050| 22 20 70 72 6f 6d 70 74 | 5d 20 33 5d 29 0a 28 64 |" prompt|] 3]).(d|
|00001060| 65 66 61 6c 69 61 73 20 | 27 70 6f 70 33 2d 63 6c |efalias |'pop3-cl|
|00001070| 65 61 6e 2d 72 65 67 69 | 6f 6e 20 23 5b 28 73 74 |ean-regi|on #[(st|
|00001080| 61 72 74 20 65 6e 64 29 | 20 22 c0 20 09 c2 93 11 |art end)| ". ....|
|00001090| 8a 0b 62 88 60 09 57 ab | 8f c4 c5 09 c6 23 ab 88 |..b.`.W.|.....#..|
|000010a0| c7 c8 c6 89 23 88 aa 6c | 0b 62 88 60 09 57 ab 92 |....#..l|.b.`.W..|
|000010b0| c9 ca 09 c6 23 ab 8b c7 | cb c6 89 23 88 c2 75 88 |....#...|...#..u.|
|000010c0| aa 69 29 09 c2 89 93 87 | 22 20 5b 6d 61 6b 65 2d |.i).....|" [make-|
|000010d0| 6d 61 72 6b 65 72 20 65 | 6e 64 20 6e 69 6c 20 73 |marker e|nd nil s|
|000010e0| 74 61 72 74 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |tart sea|rch-forw|
|000010f0| 61 72 64 20 22 0d 5c 6e | 22 20 74 20 72 65 70 6c |ard ".\n|" t repl|
|00001100| 61 63 65 2d 6d 61 74 63 | 68 20 22 5c 6e 22 20 72 |ace-matc|h "\n" r|
|00001110| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00001120| 20 22 5e 5c 5c 2e 22 20 | 22 22 5d 20 34 5d 29 0a | "^\\." |""] 4]).|
|00001130| 23 40 36 38 20 43 68 65 | 63 6b 20 74 6f 20 73 65 |#@68 Che|ck to se|
|00001140| 65 20 69 66 20 61 20 6d | 65 73 73 61 67 65 20 73 |e if a m|essage s|
|00001150| 65 70 61 72 61 74 6f 72 | 20 65 78 69 73 74 73 2e |eparator| exists.|
|00001160| 20 20 49 66 20 6e 6f 74 | 2c 20 67 65 6e 65 72 61 |  If not|, genera|
|00001170| 74 65 20 6f 6e 65 2e 1f | 0a 28 64 65 66 61 6c 69 |te one..|.(defali|
|00001180| 61 73 20 27 70 6f 70 33 | 2d 6d 75 6e 67 65 2d 6d |as 'pop3|-munge-m|
|00001190| 65 73 73 61 67 65 2d 73 | 65 70 61 72 61 74 6f 72 |essage-s|eparator|
|000011a0| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|000011b0| c0 c1 21 ac 85 c2 c1 c3 | 5c 22 88 8a 8c 0c 0d 7d |..!.....|\".....}|
|000011c0| 88 65 62 88 c6 c7 21 ae | 88 c6 c8 21 ae 83 c6 c9 |.eb...!.|...!....|
|000011d0| 21 3f ad f2 ca cb cc 21 | 21 cd cb ce 21 ae 82 c1 |!?.....!|!...!...|
|000011e0| 20 21 cf 1e 10 1e 11 1e | 12 d3 d4 0e 11 40 5c 22 | !......|.....@\"|
|000011f0| ab 99 d5 d6 0e 11 40 d7 | 0e 11 38 0e 11 41 40 d8 |......@.|..8..A@.|
|00001200| 0e 11 38 d9 0e 11 38 26 | 06 aa 92 d5 da 0e 11 41 |..8...8&|.......A|
|00001210| 40 0e 11 40 d9 0e 11 38 | d7 0e 11 38 25 16 11 d5 |@..@...8|...8%...|
|00001220| db 0e 12 0e 11 23 16 10 | d3 dc 0e 10 5c 22 ab 91 |.....#..|....\"..|
|00001230| 0e 10 dd 89 94 4f 0e 10 | dd 95 cf 4f 50 16 10 aa |.....O..|...OP...|
|00001240| 68 65 62 88 0e 10 63 2b | 2a 87 22 20 5b 66 62 6f |heb...c+|*." [fbo|
|00001250| 75 6e 64 70 20 6d 65 73 | 73 61 67 65 2d 6d 61 6b |undp mes|sage-mak|
|00001260| 65 2d 64 61 74 65 20 61 | 75 74 6f 6c 6f 61 64 20 |e-date a|utoload |
|00001270| 22 6d 65 73 73 61 67 65 | 22 20 73 74 61 72 74 20 |"message|" start |
|00001280| 65 6e 64 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |end look|ing-at "|
|00001290| 46 72 6f 6d 20 2e 3f 22 | 20 22 01 01 01 01 5c 6e |From .?"| "....\n|
|000012a0| 22 20 22 42 41 42 59 4c | 20 4f 50 54 49 4f 4e 53 |" "BABYL| OPTIONS|
|000012b0| 3a 22 20 6d 61 69 6c 2d | 73 74 72 69 70 2d 71 75 |:" mail-|strip-qu|
|000012c0| 6f 74 65 64 2d 6e 61 6d | 65 73 20 6d 61 69 6c 2d |oted-nam|es mail-|
|000012d0| 66 65 74 63 68 2d 66 69 | 65 6c 64 20 22 46 72 6f |fetch-fi|eld "Fro|
|000012e0| 6d 22 20 70 6f 70 33 2d | 73 74 72 69 6e 67 2d 74 |m" pop3-|string-t|
|000012f0| 6f 2d 6c 69 73 74 20 22 | 44 61 74 65 22 20 6e 69 |o-list "|Date" ni|
|00001300| 6c 20 46 72 6f 6d 5f 20 | 64 61 74 65 20 66 72 6f |l From_ |date fro|
|00001310| 6d 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |m string|-match "|
|00001320| 5b 41 2d 5a 5d 22 20 66 | 6f 72 6d 61 74 20 22 25 |[A-Z]" f|ormat "%|
|00001330| 73 20 25 73 20 25 73 20 | 25 73 20 25 73 22 20 32 |s %s %s |%s %s" 2|
|00001340| 20 34 20 33 20 22 53 75 | 6e 20 25 73 20 25 73 20 | 4 3 "Su|n %s %s |
|00001350| 25 73 20 25 73 22 20 22 | 5c 6e 46 72 6f 6d 20 25 |%s %s" "|\nFrom %|
|00001360| 73 20 20 25 73 5c 6e 22 | 20 22 2c 22 20 30 5d 20 |s  %s\n"| "," 0] |
|00001370| 38 20 28 23 24 20 2e 20 | 34 34 30 35 29 5d 29 0a |8 (#$ . |4405)]).|
|00001380| 23 40 33 39 20 53 65 6e | 64 20 55 53 45 52 20 69 |#@39 Sen|d USER i|
|00001390| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 74 6f 20 50 4f |nformati|on to PO|
|000013a0| 50 33 20 73 65 72 76 65 | 72 2e 1f 0a 28 64 65 66 |P3 serve|r...(def|
|000013b0| 61 6c 69 61 73 20 27 70 | 6f 70 33 2d 75 73 65 72 |alias 'p|op3-user|
|000013c0| 20 23 5b 28 70 72 6f 63 | 65 73 73 20 75 73 65 72 | #[(proc|ess user|
|000013d0| 29 20 22 c0 09 c2 c3 0c | 5c 22 5c 22 88 c5 09 c6 |) ".....|\"\"....|
|000013e0| 5c 22 89 1e 07 ad 85 c8 | c9 0e 07 5c 22 3f ad 86 |\"......|...\"?..|
|000013f0| ca c2 cb 0c 5c 22 21 29 | 87 22 20 5b 70 6f 70 33 |....\"!)|." [pop3|
|00001400| 2d 73 65 6e 64 2d 63 6f | 6d 6d 61 6e 64 20 70 72 |-send-co|mmand pr|
|00001410| 6f 63 65 73 73 20 66 6f | 72 6d 61 74 20 22 55 53 |ocess fo|rmat "US|
|00001420| 45 52 20 25 73 22 20 75 | 73 65 72 20 70 6f 70 33 |ER %s" u|ser pop3|
|00001430| 2d 72 65 61 64 2d 72 65 | 73 70 6f 6e 73 65 20 74 |-read-re|sponse t|
|00001440| 20 72 65 73 70 6f 6e 73 | 65 20 73 74 72 69 6e 67 | respons|e string|
|00001450| 2d 6d 61 74 63 68 20 22 | 2b 4f 4b 22 20 65 72 72 |-match "|+OK" err|
|00001460| 6f 72 20 22 55 53 45 52 | 20 25 73 20 6e 6f 74 20 |or "USER| %s not |
|00001470| 76 61 6c 69 64 2e 22 5d | 20 36 20 28 23 24 20 2e |valid."]| 6 (#$ .|
|00001480| 20 34 39 39 37 29 5d 29 | 0a 23 40 34 38 20 53 65 | 4997)])|.#@48 Se|
|00001490| 6e 64 20 61 75 74 68 65 | 6e 74 69 63 61 74 69 6f |nd authe|nticatio|
|000014a0| 6e 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 74 6f |n inform|ation to|
|000014b0| 20 74 68 65 20 73 65 72 | 76 65 72 2e 1f 0a 28 64 | the ser|ver...(d|
|000014c0| 65 66 61 6c 69 61 73 20 | 27 70 6f 70 33 2d 70 61 |efalias |'pop3-pa|
|000014d0| 73 73 20 23 5b 28 70 72 | 6f 63 65 73 73 29 20 22 |ss #[(pr|ocess) "|
|000014e0| 08 19 5c 6e ab 8b 09 ac | 88 c3 c4 c5 0e 06 5c 22 |..\n....|......\"|
|000014f0| 21 11 09 ad a0 c7 0e 08 | c4 c9 09 5c 22 5c 22 88 |!.......|...\"\".|
|00001500| ca 0e 08 cb 5c 22 89 1e | 0c ad 85 cd ce 0e 0c 5c |....\"..|.......\|
|00001510| 22 3f ad 84 cf 0e 08 21 | 29 29 87 22 20 5b 70 6f |"?.....!|))." [po|
|00001520| 70 33 2d 70 61 73 73 77 | 6f 72 64 20 70 61 73 73 |p3-passw|ord pass|
|00001530| 20 70 6f 70 33 2d 70 61 | 73 73 77 6f 72 64 2d 72 | pop3-pa|ssword-r|
|00001540| 65 71 75 69 72 65 64 20 | 70 6f 70 33 2d 72 65 61 |equired |pop3-rea|
|00001550| 64 2d 70 61 73 73 77 64 | 20 66 6f 72 6d 61 74 20 |d-passwd| format |
|00001560| 22 50 61 73 73 77 6f 72 | 64 20 66 6f 72 20 25 73 |"Passwor|d for %s|
|00001570| 3a 20 22 20 70 6f 70 33 | 2d 6d 61 69 6c 64 72 6f |: " pop3|-maildro|
|00001580| 70 20 70 6f 70 33 2d 73 | 65 6e 64 2d 63 6f 6d 6d |p pop3-s|end-comm|
|00001590| 61 6e 64 20 70 72 6f 63 | 65 73 73 20 22 50 41 53 |and proc|ess "PAS|
|000015a0| 53 20 25 73 22 20 70 6f | 70 33 2d 72 65 61 64 2d |S %s" po|p3-read-|
|000015b0| 72 65 73 70 6f 6e 73 65 | 20 74 20 72 65 73 70 6f |response| t respo|
|000015c0| 6e 73 65 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |nse stri|ng-match|
|000015d0| 20 22 2b 4f 4b 22 20 70 | 6f 70 33 2d 71 75 69 74 | "+OK" p|op3-quit|
|000015e0| 5d 20 36 20 28 23 24 20 | 2e 20 35 32 36 32 29 5d |] 6 (#$ |. 5262)]|
|000015f0| 29 0a 23 40 33 38 20 2a | 50 72 6f 67 72 61 6d 20 |).#@38 *|Program |
|00001600| 74 6f 20 65 6e 63 6f 64 | 65 20 69 74 73 20 69 6e |to encod|e its in|
|00001610| 70 75 74 20 69 6e 20 4d | 44 35 2e 1f 0a 28 64 65 |put in M|D5...(de|
|00001620| 66 76 61 72 20 70 6f 70 | 33 2d 6d 64 35 2d 70 72 |fvar pop|3-md5-pr|
|00001630| 6f 67 72 61 6d 20 22 6d | 64 35 22 20 28 23 24 20 |ogram "m|d5" (#$ |
|00001640| 2e 20 2d 35 36 32 33 29 | 29 0a 28 64 65 66 61 6c |. -5623)|).(defal|
|00001650| 69 61 73 20 27 70 6f 70 | 33 2d 6d 64 35 20 23 5b |ias 'pop|3-md5 #[|
|00001660| 28 73 74 72 69 6e 67 29 | 20 22 c0 c1 c2 21 21 1b |(string)| "...!!.|
|00001670| c4 8e 72 0b 71 88 0d 63 | 88 c6 65 64 0e 07 ae 81 |..r.q..c|..ed....|
|00001680| c8 c9 70 ca cb 0e 0c 26 | 08 88 65 65 cd 5c 5c 7b |..p....&|..ee.\\{|
|00001690| 2b 87 22 20 5b 67 65 74 | 2d 62 75 66 66 65 72 2d |+." [get|-buffer-|
|000016a0| 63 72 65 61 74 65 20 67 | 65 6e 65 72 61 74 65 2d |create g|enerate-|
|000016b0| 6e 65 77 2d 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |new-buff|er-name |
|000016c0| 22 20 2a 74 65 6d 70 2a | 22 20 74 65 6d 70 2d 62 |" *temp*|" temp-b|
|000016d0| 75 66 66 65 72 20 28 28 | 62 79 74 65 2d 63 6f 64 |uffer ((|byte-cod|
|000016e0| 65 20 22 c0 09 21 ab 84 | c2 09 21 88 c0 87 22 20 |e "..!..|..!..." |
|000016f0| 5b 62 75 66 66 65 72 2d | 6e 61 6d 65 20 74 65 6d |[buffer-|name tem|
|00001700| 70 2d 62 75 66 66 65 72 | 20 6b 69 6c 6c 2d 62 75 |p-buffer| kill-bu|
|00001710| 66 66 65 72 5d 20 32 29 | 29 20 73 74 72 69 6e 67 |ffer] 2)|) string|
|00001720| 20 63 61 6c 6c 2d 70 72 | 6f 63 65 73 73 2d 72 65 | call-pr|ocess-re|
|00001730| 67 69 6f 6e 20 73 68 65 | 6c 6c 2d 66 69 6c 65 2d |gion she|ll-file-|
|00001740| 6e 61 6d 65 20 22 2f 62 | 69 6e 2f 73 68 22 20 74 |name "/b|in/sh" t|
|00001750| 20 6e 69 6c 20 22 2d 63 | 22 20 70 6f 70 33 2d 6d | nil "-c|" pop3-m|
|00001760| 64 35 2d 70 72 6f 67 72 | 61 6d 20 33 32 5d 20 39 |d5-progr|am 32] 9|
|00001770| 5d 29 0a 23 40 35 38 20 | 53 65 6e 64 20 61 6c 74 |]).#@58 |Send alt|
|00001780| 65 72 6e 61 74 65 20 61 | 75 74 68 65 6e 74 69 63 |ernate a|uthentic|
|00001790| 61 74 69 6f 6e 20 69 6e | 66 6f 72 6d 61 74 69 6f |ation in|formatio|
|000017a0| 6e 20 74 6f 20 74 68 65 | 20 73 65 72 76 65 72 2e |n to the| server.|
|000017b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 6f 70 |..(defal|ias 'pop|
|000017c0| 33 2d 61 70 6f 70 20 23 | 5b 28 70 72 6f 63 65 73 |3-apop #|[(proces|
|000017d0| 73 20 75 73 65 72 29 20 | 22 08 19 5c 6e ab 8b 09 |s user) |"..\n...|
|000017e0| ac 88 c3 c4 c5 0e 06 5c | 22 21 11 09 ad ab c7 0e |.......\|"!......|
|000017f0| 08 09 50 21 1e 09 ca 0e | 0b c4 cc 0e 0d 0e 09 23 |..P!....|.......#|
|00001800| 5c 22 88 ce 0e 0b cf 5c | 22 89 1e 10 ad 85 d1 d2 |\".....\|".......|
|00001810| 0e 10 5c 22 3f ad 84 d3 | 0e 0b 21 2a 29 87 22 20 |..\"?...|..!*)." |
|00001820| 5b 70 6f 70 33 2d 70 61 | 73 73 77 6f 72 64 20 70 |[pop3-pa|ssword p|
|00001830| 61 73 73 20 70 6f 70 33 | 2d 70 61 73 73 77 6f 72 |ass pop3|-passwor|
|00001840| 64 2d 72 65 71 75 69 72 | 65 64 20 70 6f 70 33 2d |d-requir|ed pop3-|
|00001850| 72 65 61 64 2d 70 61 73 | 73 77 64 20 66 6f 72 6d |read-pas|swd form|
|00001860| 61 74 20 22 50 61 73 73 | 77 6f 72 64 20 66 6f 72 |at "Pass|word for|
|00001870| 20 25 73 3a 20 22 20 70 | 6f 70 33 2d 6d 61 69 6c | %s: " p|op3-mail|
|00001880| 64 72 6f 70 20 70 6f 70 | 33 2d 6d 64 35 20 70 6f |drop pop|3-md5 po|
|00001890| 70 33 2d 74 69 6d 65 73 | 74 61 6d 70 20 68 61 73 |p3-times|tamp has|
|000018a0| 68 20 70 6f 70 33 2d 73 | 65 6e 64 2d 63 6f 6d 6d |h pop3-s|end-comm|
|000018b0| 61 6e 64 20 70 72 6f 63 | 65 73 73 20 22 41 50 4f |and proc|ess "APO|
|000018c0| 50 20 25 73 20 25 73 22 | 20 75 73 65 72 20 70 6f |P %s %s"| user po|
|000018d0| 70 33 2d 72 65 61 64 2d | 72 65 73 70 6f 6e 73 65 |p3-read-|response|
|000018e0| 20 74 20 72 65 73 70 6f | 6e 73 65 20 73 74 72 69 | t respo|nse stri|
|000018f0| 6e 67 2d 6d 61 74 63 68 | 20 22 2b 4f 4b 22 20 70 |ng-match| "+OK" p|
|00001900| 6f 70 33 2d 71 75 69 74 | 5d 20 37 20 28 23 24 20 |op3-quit|] 7 (#$ |
|00001910| 2e 20 36 30 30 38 29 5d | 29 0a 23 40 37 32 20 52 |. 6008)]|).#@72 R|
|00001920| 65 74 75 72 6e 20 74 68 | 65 20 6e 75 6d 62 65 72 |eturn th|e number|
|00001930| 20 6f 66 20 6d 65 73 73 | 61 67 65 73 20 69 6e 20 | of mess|ages in |
|00001940| 74 68 65 20 6d 61 69 6c | 64 72 6f 70 20 61 6e 64 |the mail|drop and|
|00001950| 20 74 68 65 20 6d 61 69 | 6c 64 72 6f 70 27 73 20 | the mai|ldrop's |
|00001960| 73 69 7a 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |size...(|defalias|
|00001970| 20 27 70 6f 70 33 2d 73 | 74 61 74 20 23 5b 28 70 | 'pop3-s|tat #[(p|
|00001980| 72 6f 63 65 73 73 29 20 | 22 c0 09 c2 5c 22 88 c3 |rocess) |"...\"..|
|00001990| 09 c4 5c 22 1d c6 c7 0d | 21 41 40 21 c6 c8 c7 0d |..\"....|!A@!....|
|000019a0| 21 38 21 29 44 87 22 20 | 5b 70 6f 70 33 2d 73 65 |!8!)D." |[pop3-se|
|000019b0| 6e 64 2d 63 6f 6d 6d 61 | 6e 64 20 70 72 6f 63 65 |nd-comma|nd proce|
|000019c0| 73 73 20 22 53 54 41 54 | 22 20 70 6f 70 33 2d 72 |ss "STAT|" pop3-r|
|000019d0| 65 61 64 2d 72 65 73 70 | 6f 6e 73 65 20 74 20 72 |ead-resp|onse t r|
|000019e0| 65 73 70 6f 6e 73 65 20 | 73 74 72 69 6e 67 2d 74 |esponse |string-t|
|000019f0| 6f 2d 69 6e 74 20 70 6f | 70 33 2d 73 74 72 69 6e |o-int po|p3-strin|
|00001a00| 67 2d 74 6f 2d 6c 69 73 | 74 20 32 5d 20 35 20 28 |g-to-lis|t 2] 5 (|
|00001a10| 23 24 20 2e 20 36 34 33 | 31 29 5d 29 0a 23 40 37 |#$ . 643|1)]).#@7|
|00001a20| 35 20 53 63 61 6e 20 6c | 69 73 74 69 6e 67 20 6f |5 Scan l|isting o|
|00001a30| 66 20 61 76 61 69 6c 61 | 62 6c 65 20 6d 65 73 73 |f availa|ble mess|
|00001a40| 61 67 65 73 2e 0a 54 68 | 69 73 20 66 75 6e 63 74 |ages..Th|is funct|
|00001a50| 69 6f 6e 20 63 75 72 72 | 65 6e 74 6c 79 20 64 6f |ion curr|ently do|
|00001a60| 65 73 20 6e 6f 74 68 69 | 6e 67 2e 1f 0a 28 64 65 |es nothi|ng...(de|
|00001a70| 66 61 6c 69 61 73 20 27 | 70 6f 70 33 2d 6c 69 73 |falias '|pop3-lis|
|00001a80| 74 20 23 5b 28 70 72 6f | 63 65 73 73 20 26 6f 70 |t #[(pro|cess &op|
|00001a90| 74 69 6f 6e 61 6c 20 6d | 73 67 29 20 22 c0 87 22 |tional m|sg) ".."|
|00001aa0| 20 5b 6e 69 6c 5d 20 31 | 20 28 23 24 20 2e 20 36 | [nil] 1| (#$ . 6|
|00001ab0| 36 39 30 29 5d 29 0a 23 | 40 34 35 20 52 65 74 72 |690)]).#|@45 Retr|
|00001ac0| 69 65 76 65 20 6d 65 73 | 73 61 67 65 2d 69 64 20 |ieve mes|sage-id |
|00001ad0| 4d 53 47 20 74 6f 20 62 | 75 66 66 65 72 20 43 52 |MSG to b|uffer CR|
|00001ae0| 41 53 48 42 55 46 2e 1f | 0a 28 64 65 66 61 6c 69 |ASHBUF..|.(defali|
|00001af0| 61 73 20 27 70 6f 70 33 | 2d 72 65 74 72 20 23 5b |as 'pop3|-retr #[|
|00001b00| 28 70 72 6f 63 65 73 73 | 20 6d 73 67 20 63 72 61 |(process| msg cra|
|00001b10| 73 68 62 75 66 29 20 22 | c0 09 c2 c3 0c 5c 22 5c |shbuf) "|.....\"\|
|00001b20| 22 88 c5 09 21 88 0e 06 | c7 1e 08 1e 09 8a ca 09 |"...!...|........|
|00001b30| 21 71 88 cb cc c7 cd 23 | ac bd ce 09 cf 5c 22 88 |!q.....#|.....\".|
|00001b40| d0 20 d1 56 ab 84 d2 d3 | 21 88 d0 20 d4 56 ab 84 |. .V....|!.. .V..|
|00001b50| d2 d3 21 88 d0 20 d5 56 | ab 84 d2 d3 21 88 d0 20 |..!.. .V|....!.. |
|00001b60| d6 56 ab 84 d2 d3 21 88 | d0 20 d7 56 ab 84 d2 d3 |.V....!.|. .V....|
|00001b70| 21 88 0e 09 62 88 aa 3c | d8 20 16 06 d9 94 62 88 |!...b..<|. ....b.|
|00001b80| d8 20 16 08 da 0e 09 0e | 08 5c 22 88 db 0e 09 0e |. ......|.\".....|
|00001b90| 08 5c 22 88 8a 0e 1c 71 | 88 dd 20 88 29 de 0e 1c |.\"....q|.. .)...|
|00001ba0| 0e 09 0e 08 23 88 0e 09 | 0e 08 7c 2b 87 22 20 5b |....#...|..|+." [|
|00001bb0| 70 6f 70 33 2d 73 65 6e | 64 2d 63 6f 6d 6d 61 6e |pop3-sen|d-comman|
|00001bc0| 64 20 70 72 6f 63 65 73 | 73 20 66 6f 72 6d 61 74 |d proces|s format|
|00001bd0| 20 22 52 45 54 52 20 25 | 73 22 20 6d 73 67 20 70 | "RETR %|s" msg p|
|00001be0| 6f 70 33 2d 72 65 61 64 | 2d 72 65 73 70 6f 6e 73 |op3-read|-respons|
|00001bf0| 65 20 70 6f 70 33 2d 72 | 65 61 64 2d 70 6f 69 6e |e pop3-r|ead-poin|
|00001c00| 74 20 6e 69 6c 20 65 6e | 64 20 73 74 61 72 74 20 |t nil en|d start |
|00001c10| 70 72 6f 63 65 73 73 2d | 62 75 66 66 65 72 20 72 |process-|buffer r|
|00001c20| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00001c30| 20 22 5e 5c 5c 2e 0d 5c | 6e 22 20 74 20 61 63 63 | "^\\..\|n" t acc|
|00001c40| 65 70 74 2d 70 72 6f 63 | 65 73 73 2d 6f 75 74 70 |ept-proc|ess-outp|
|00001c50| 75 74 20 33 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |ut 3 buf|fer-size|
|00001c60| 20 32 30 30 30 30 20 73 | 6c 65 65 70 2d 66 6f 72 | 20000 s|leep-for|
|00001c70| 20 31 20 35 30 30 30 30 | 20 31 30 30 30 30 30 20 | 1 50000| 100000 |
|00001c80| 32 30 30 30 30 30 20 35 | 30 30 30 30 30 20 70 6f |200000 5|00000 po|
|00001c90| 69 6e 74 2d 6d 61 72 6b | 65 72 20 30 20 70 6f 70 |int-mark|er 0 pop|
|00001ca0| 33 2d 63 6c 65 61 6e 2d | 72 65 67 69 6f 6e 20 70 |3-clean-|region p|
|00001cb0| 6f 70 33 2d 6d 75 6e 67 | 65 2d 6d 65 73 73 61 67 |op3-mung|e-messag|
|00001cc0| 65 2d 73 65 70 61 72 61 | 74 6f 72 20 63 72 61 73 |e-separa|tor cras|
|00001cd0| 68 62 75 66 20 65 72 61 | 73 65 2d 62 75 66 66 65 |hbuf era|se-buffe|
|00001ce0| 72 20 63 6f 70 79 2d 74 | 6f 2d 62 75 66 66 65 72 |r copy-t|o-buffer|
|00001cf0| 5d 20 35 20 28 23 24 20 | 2e 20 36 38 34 34 29 5d |] 5 (#$ |. 6844)]|
|00001d00| 29 0a 23 40 33 33 20 4d | 61 72 6b 20 6d 65 73 73 |).#@33 M|ark mess|
|00001d10| 61 67 65 2d 69 64 20 4d | 53 47 20 61 73 20 64 65 |age-id M|SG as de|
|00001d20| 6c 65 74 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |leted...|(defalia|
|00001d30| 73 20 27 70 6f 70 33 2d | 64 65 6c 65 20 23 5b 28 |s 'pop3-|dele #[(|
|00001d40| 70 72 6f 63 65 73 73 20 | 6d 73 67 29 20 22 c0 09 |process |msg) "..|
|00001d50| c2 c3 0c 5c 22 5c 22 88 | c5 09 21 87 22 20 5b 70 |...\"\".|..!." [p|
|00001d60| 6f 70 33 2d 73 65 6e 64 | 2d 63 6f 6d 6d 61 6e 64 |op3-send|-command|
|00001d70| 20 70 72 6f 63 65 73 73 | 20 66 6f 72 6d 61 74 20 | process| format |
|00001d80| 22 44 45 4c 45 20 25 73 | 22 20 6d 73 67 20 70 6f |"DELE %s|" msg po|
|00001d90| 70 33 2d 72 65 61 64 2d | 72 65 73 70 6f 6e 73 65 |p3-read-|response|
|00001da0| 5d 20 35 20 28 23 24 20 | 2e 20 37 34 33 31 29 5d |] 5 (#$ |. 7431)]|
|00001db0| 29 0a 23 40 31 35 20 4e | 6f 2d 6f 70 65 72 61 74 |).#@15 N|o-operat|
|00001dc0| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00001dd0| 27 70 6f 70 33 2d 6e 6f | 6f 70 20 23 5b 28 70 72 |'pop3-no|op #[(pr|
|00001de0| 6f 63 65 73 73 20 6d 73 | 67 29 20 22 c0 09 c2 5c |ocess ms|g) "...\|
|00001df0| 22 88 c3 09 21 87 22 20 | 5b 70 6f 70 33 2d 73 65 |"...!." |[pop3-se|
|00001e00| 6e 64 2d 63 6f 6d 6d 61 | 6e 64 20 70 72 6f 63 65 |nd-comma|nd proce|
|00001e10| 73 73 20 22 4e 4f 4f 50 | 22 20 70 6f 70 33 2d 72 |ss "NOOP|" pop3-r|
|00001e20| 65 61 64 2d 72 65 73 70 | 6f 6e 73 65 5d 20 33 20 |ead-resp|onse] 3 |
|00001e30| 28 23 24 20 2e 20 37 36 | 30 37 29 5d 29 0a 23 40 |(#$ . 76|07)]).#@|
|00001e40| 36 30 20 52 65 74 75 72 | 6e 20 68 69 67 68 65 73 |60 Retur|n highes|
|00001e50| 74 20 61 63 63 65 73 73 | 65 64 20 6d 65 73 73 61 |t access|ed messa|
|00001e60| 67 65 2d 69 64 20 6e 75 | 6d 62 65 72 20 66 6f 72 |ge-id nu|mber for|
|00001e70| 20 74 68 65 20 73 65 73 | 73 69 6f 6e 2e 1f 0a 28 | the ses|sion...(|
|00001e80| 64 65 66 61 6c 69 61 73 | 20 27 70 6f 70 33 2d 6c |defalias| 'pop3-l|
|00001e90| 61 73 74 20 23 5b 28 70 | 72 6f 63 65 73 73 29 20 |ast #[(p|rocess) |
|00001ea0| 22 c0 09 c2 5c 22 88 c3 | 09 c4 5c 22 1d c6 c7 0d |"...\"..|..\"....|
|00001eb0| 21 41 40 21 29 87 22 20 | 5b 70 6f 70 33 2d 73 65 |!A@!)." |[pop3-se|
|00001ec0| 6e 64 2d 63 6f 6d 6d 61 | 6e 64 20 70 72 6f 63 65 |nd-comma|nd proce|
|00001ed0| 73 73 20 22 4c 41 53 54 | 22 20 70 6f 70 33 2d 72 |ss "LAST|" pop3-r|
|00001ee0| 65 61 64 2d 72 65 73 70 | 6f 6e 73 65 20 74 20 72 |ead-resp|onse t r|
|00001ef0| 65 73 70 6f 6e 73 65 20 | 73 74 72 69 6e 67 2d 74 |esponse |string-t|
|00001f00| 6f 2d 69 6e 74 20 70 6f | 70 33 2d 73 74 72 69 6e |o-int po|p3-strin|
|00001f10| 67 2d 74 6f 2d 6c 69 73 | 74 5d 20 33 20 28 23 24 |g-to-lis|t] 3 (#$|
|00001f20| 20 2e 20 37 37 34 37 29 | 5d 29 0a 23 40 34 38 20 | . 7747)|]).#@48 |
|00001f30| 52 65 6d 6f 76 65 20 61 | 6c 6c 20 64 65 6c 65 74 |Remove a|ll delet|
|00001f40| 65 20 6d 61 72 6b 73 20 | 66 72 6f 6d 20 63 75 72 |e marks |from cur|
|00001f50| 72 65 6e 74 20 6d 61 69 | 6c 64 72 6f 70 2e 1f 0a |rent mai|ldrop...|
|00001f60| 28 64 65 66 61 6c 69 61 | 73 20 27 70 6f 70 33 2d |(defalia|s 'pop3-|
|00001f70| 72 73 65 74 20 23 5b 28 | 70 72 6f 63 65 73 73 29 |rset #[(|process)|
|00001f80| 20 22 c0 09 c2 5c 22 88 | c3 09 21 87 22 20 5b 70 | "...\".|..!." [p|
|00001f90| 6f 70 33 2d 73 65 6e 64 | 2d 63 6f 6d 6d 61 6e 64 |op3-send|-command|
|00001fa0| 20 70 72 6f 63 65 73 73 | 20 22 52 53 45 54 22 20 | process| "RSET" |
|00001fb0| 70 6f 70 33 2d 72 65 61 | 64 2d 72 65 73 70 6f 6e |pop3-rea|d-respon|
|00001fc0| 73 65 5d 20 33 20 28 23 | 24 20 2e 20 37 39 38 34 |se] 3 (#|$ . 7984|
|00001fd0| 29 5d 29 0a 23 40 31 33 | 35 20 43 6c 6f 73 65 20 |)]).#@13|5 Close |
|00001fe0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 74 6f 20 50 4f |connecti|on to PO|
|00001ff0| 50 33 20 73 65 72 76 65 | 72 2e 0a 54 65 6c 6c 20 |P3 serve|r..Tell |
|00002000| 73 65 72 76 65 72 20 74 | 6f 20 72 65 6d 6f 76 65 |server t|o remove|
|00002010| 20 61 6c 6c 20 6d 65 73 | 73 61 67 65 73 20 6d 61 | all mes|sages ma|
|00002020| 72 6b 65 64 20 61 73 20 | 64 65 6c 65 74 65 64 2c |rked as |deleted,|
|00002030| 20 75 6e 6c 6f 63 6b 20 | 74 68 65 20 6d 61 69 6c | unlock |the mail|
|00002040| 64 72 6f 70 2c 0a 61 6e | 64 20 63 6c 6f 73 65 20 |drop,.an|d close |
|00002050| 74 68 65 20 63 6f 6e 6e | 65 63 74 69 6f 6e 2e 1f |the conn|ection..|
|00002060| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 6f 70 33 |.(defali|as 'pop3|
|00002070| 2d 71 75 69 74 20 23 5b | 28 70 72 6f 63 65 73 73 |-quit #[|(process|
|00002080| 29 20 22 c0 09 c2 5c 22 | 88 c3 09 c4 5c 22 88 09 |) "...\"|....\"..|
|00002090| ad 8d 8a c5 09 21 71 88 | 64 62 88 c6 09 21 29 87 |.....!q.|db...!).|
|000020a0| 22 20 5b 70 6f 70 33 2d | 73 65 6e 64 2d 63 6f 6d |" [pop3-|send-com|
|000020b0| 6d 61 6e 64 20 70 72 6f | 63 65 73 73 20 22 51 55 |mand pro|cess "QU|
|000020c0| 49 54 22 20 70 6f 70 33 | 2d 72 65 61 64 2d 72 65 |IT" pop3|-read-re|
|000020d0| 73 70 6f 6e 73 65 20 74 | 20 70 72 6f 63 65 73 73 |sponse t| process|
|000020e0| 2d 62 75 66 66 65 72 20 | 64 65 6c 65 74 65 2d 70 |-buffer |delete-p|
|000020f0| 72 6f 63 65 73 73 5d 20 | 33 20 28 23 24 20 2e 20 |rocess] |3 (#$ . |
|00002100| 38 31 35 34 29 5d 29 0a |                         |8154)]).|        |
+--------+-------------------------+-------------------------+--------+--------+